Attribute VB_Name = "modChartTools"
'add label to the last data point of each series
Sub Chart()
Dim s As Series

Debug.Print "The Chart has " & ActiveChart.SeriesCollection.Count & " data series"

For Each s In ActiveChart.SeriesCollection
  Debug.Print "Current data series is: " & s.Name & " with " & s.Points.Count; " datapoints"
  s.ApplyDataLabels
  s.DataLabels.Select
  Selection.ShowSeriesName = True
  Selection.ShowValue = False
  n = 1
  For Each datapoint In s.Points
    datapoint.DataLabel.Select
    If n < s.Points.Count Then Selection.Delete
    n = n + 1
  Next
Next

End Sub
